home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / mac / MSTR / PROGRAM / PHOTO.DIR / 00016.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  1.4 KB  |  57 lines
  1. on moviecontrol
  2.   global autostatus, zoomcounter, cursorpointer, cursorwait, cursorzin, cursorzout
  3.   if autostatus then
  4.     set waittime to ticks() + (5 * 60)
  5.     repeat while ticks() < waittime
  6.       if rollOver(21) then
  7.         cursor(cursorpointer)
  8.         next repeat
  9.       end if
  10.       set the locV of sprite 15 to 600
  11.       updateStage()
  12.     end repeat
  13.     set the locV of sprite 15 to 600
  14.     updateStage()
  15.     getfilecounter("1")
  16.     go(marker(1))
  17.   else
  18.     if rollOver(21) then
  19.       cursor(cursorpointer)
  20.     else
  21.       if rollOver(7) then
  22.         if zoomcounter = 0 then
  23.           cursor(cursorzin)
  24.         else
  25.           if zoomcounter = 1 then
  26.             cursor(cursorzout)
  27.           else
  28.             if zoomcounter = 2 then
  29.             else
  30.               cursor(cursorzin)
  31.             end if
  32.           end if
  33.         end if
  34.         exit
  35.       else
  36.         exit
  37.       end if
  38.     end if
  39.   end if
  40. end
  41.  
  42. on placefilenumber
  43.   global photocounter, photodatanum
  44.   set lposition to the left of sprite 21
  45.   set tposition to the top of sprite 21
  46.   put photocounter & "/" & photodatanum into field "fileNumber"
  47.   puppetSprite(23, 1)
  48.   set the type of sprite 23 to 7
  49.   set the ink of sprite 23 to 36
  50.   set the foreColor of sprite 23 to 255
  51.   set the backColor of sprite 23 to 0
  52.   set the castNum of sprite 23 to the number of member "fileNumber"
  53.   set the locH of sprite 23 to lposition + 76
  54.   set the locV of sprite 23 to tposition + 23
  55.   updateStage()
  56. end
  57.